home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
245
/
gfatip16
/
getdrive.lst
< prev
next >
Wrap
File List
|
1988-10-10
|
377b
|
14 lines
' GFATIP16 .LST Library Source Code is Copyright 1988 Marathon Computer Press
' Procedure Get_drive
' Dependencies : None
'
' This little GEM will return the values needed by the Fsel_input procedure.
' Take note of how it works..
'
'
Procedure Get_drive
Currentdrive%=Gemdos(&H19)
Currentdrive$=Chr$(Asc("A")+Currentdrive%)
Gfadrive%=Currentdrive%+1
Return